home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1998 May / Macworld (1998-05).dmg / Games World / Shareware Games / Arcade / Supreme Commander / Supreme Commander.mac / 00213.ls < prev    next >
Encoding:
Text File  |  1996-01-30  |  921 b   |  34 lines
  1. on mouseDown
  2.   global occupied, topupied, shaker
  3.   set shaker to 1
  4.   if the visible of sprite 11 = 0 then
  5.     puppetSprite(8, 1)
  6.     set the locV of sprite 8 to 232
  7.     set the locH of sprite 8 to 466
  8.     set the visible of sprite 8 to 1
  9.     set the visible of sprite 7 to 0
  10.     set the visible of sprite 36 to 0
  11.     puppetSprite(11, 1)
  12.     set the castNum of sprite 11 to 22
  13.     set occupied to 3
  14.     set the visible of sprite 11 to 1
  15.     SHWUNK()
  16.   else
  17.     puppetSprite(13, 1)
  18.     set the visible of sprite 12 to 0
  19.     set the locV of sprite 13 to 221
  20.     set the locH of sprite 13 to 471
  21.     set the visible of sprite 13 to 1
  22.     set the visible of sprite 7 to 0
  23.     set the visible of sprite 36 to 0
  24.     set the castNum of sprite 17 to 22
  25.     set the visible of sprite 17 to 1
  26.     puppetSprite(17, 1)
  27.     set topupied to 3
  28.     SHWUNK()
  29.   end if
  30.   checkpoker()
  31.   set the visible of sprite 31 to 1
  32.   updateStage()
  33. end
  34.